We are not going to teach you how to make a 3D visualisation in R because even though at a low density a 3D barchart might work for data with a low density, the alternatives visualisations work in all instances. Another reason, is that there is only one library to make a 3D visualisation and it does not produce a high quality visualisation. If you do want to make a 3D column chart, excel would be a better choice. So lets take a look at that 3D visualisation again and try to come up with alternatives.

cloud(as.numeric(as.character(Observation))~as.factor(Type_1)+as.factor(Type_2), Dataset, panel.3d.cloud=panel.3dbars,
          xbase=0.3,  
          ybase=0.3, 
          zlab = NULL, 
          col.facet=c("blue", "yellow", "purple", "orange", "green"),
          group = Type_1, 
          scales=list(arrows=FALSE, col=1), xlab = NULL, ylab = NULL, main = NULL,
          par.box = list(col = NA), lcol=NULL
          )

So lets take a quick look at the data. Initially, we will explore fake densely generated data and then we will explore a real dataset. The fake data was generated based on real data exploring number of observations based on number of genes and number of cell types.

###So what are the different alternatives to a 3D column chart?

1. Dodge Bar Chart

ggplot(Dataset, aes(x = Type_1, y = Observation, fill = Type_2)) + geom_bar(position = "dodge", stat = "identity" ) + scale_fill_brewer(palette = "Set3")

2. Faceted bar charts

ggplot(Dataset, aes(x = Type_1, y = Observation)) + geom_bar(position = "dodge", stat = "identity", fill="#FF9999", colour="black" )  + facet_grid(rows = vars(Type_2)) 

3. Line Chart

ggplot(Dataset, aes(x = Type_1, y = Observation, col = Type_2, group= Type_2 )) +  geom_line() + scale_fill_brewer(palette = "Set3")

4. Scatterplots

ggplot(Dataset, aes(x = Type_1, y =Observation , col = Type_2 )) +  geom_point() + scale_fill_brewer(palette = "Set3")
LS0tCnRpdGxlOiAnM0QgVmlzdWFsaXNhdGlvbnM6IFdoYXQgYXJlIHRoZSBhbHRlcm5hdGl2ZXM/JwpvdXRwdXQ6CiAgaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoKQpgYGAKCmBgYHtyIGVjaG8gPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFIH0KbGlicmFyeShrbml0cikKbGlicmFyeShybWFya2Rvd24pCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShkcGx5cikKbGlicmFyeShEVCkKbGlicmFyeSh0b29scykKbGlicmFyeShSQ29sb3JCcmV3ZXIpCmxpYnJhcnkocmVhZHhsKQpsaWJyYXJ5KHJlc2hhcGUyKQpsaWJyYXJ5KHRpZHlyKQpsaWJyYXJ5IChzY2FsZXMpCmxpYnJhcnkobGF0dGljZUV4dHJhKQpsaWJyYXJ5KGNvd3Bsb3QpCnRoZW1lX3NldCh0aGVtZV9taW5pbWFsKCkpCnNvdXJjZSgiM0RfaGVscGVyLlIiKQpgYGAKCldlIGFyZSBub3QgZ29pbmcgdG8gdGVhY2ggeW91IGhvdyB0byBtYWtlIGEgM0QgdmlzdWFsaXNhdGlvbiBpbiBSIGJlY2F1c2UgZXZlbiB0aG91Z2ggYXQgYSBsb3cgZGVuc2l0eSBhIDNEIGJhcmNoYXJ0IG1pZ2h0IHdvcmsgZm9yIGRhdGEgd2l0aCBhIGxvdyBkZW5zaXR5LCB0aGUgYWx0ZXJuYXRpdmVzIHZpc3VhbGlzYXRpb25zIHdvcmsgaW4gYWxsIGluc3RhbmNlcy4gQW5vdGhlciByZWFzb24sIGlzIHRoYXQgdGhlcmUgaXMgb25seSBvbmUgbGlicmFyeSB0byBtYWtlIGEgM0QgdmlzdWFsaXNhdGlvbiBhbmQgaXQgZG9lcyBub3QgcHJvZHVjZSBhIGhpZ2ggcXVhbGl0eSB2aXN1YWxpc2F0aW9uLiBJZiB5b3UgZG8gd2FudCB0byBtYWtlIGEgM0QgY29sdW1uIGNoYXJ0LCBleGNlbCB3b3VsZCBiZSBhIGJldHRlciBjaG9pY2UuIFNvIGxldHMgdGFrZSBhIGxvb2sgYXQgdGhhdCAzRCB2aXN1YWxpc2F0aW9uIGFnYWluIGFuZCB0cnkgdG8gY29tZSB1cCB3aXRoIGFsdGVybmF0aXZlcy4gClxsaW5lYnJlYWsKXGxpbmVicmVhawpgYGB7ciBlY2hvID0gRkFMU0V9CkRhdGFzZXQgPC0gcmV0dXJuZWRfTWF0cml4KDgpCkRhdGFzZXQkT2JzZXJ2YXRpb24gPC0gYXMubnVtZXJpYygoYXMuY2hhcmFjdGVyKERhdGFzZXQkT2JzZXJ2YXRpb24pKSkKRGF0YXNldCRUeXBlXzEgPC0gZmFjdG9yKGFzLmNoYXJhY3RlcihEYXRhc2V0JFR5cGVfMSksIGxldmVscz1jKCJGaXZlIiwgIkZvdXIiLCAiVGhyZWUiLCAiVHdvIiwgIk9uZSIpKQpEYXRhc2V0JFR5cGVfMiA8LSBmYWN0b3IoYXMuY2hhcmFjdGVyKERhdGFzZXQkVHlwZV8yKSwgbGV2ZWxzPWMoIkZpdmUiLCAiRm91ciIsICJUaHJlZSIsICJUd28iLCAiT25lIikpCkRhdGFzZXQgPC0gRGF0YXNldFtvcmRlcihEYXRhc2V0JFR5cGVfMSksXQpgYGAKCmBgYHtyfQpjbG91ZChhcy5udW1lcmljKGFzLmNoYXJhY3RlcihPYnNlcnZhdGlvbikpfmFzLmZhY3RvcihUeXBlXzEpK2FzLmZhY3RvcihUeXBlXzIpLCBEYXRhc2V0LCBwYW5lbC4zZC5jbG91ZD1wYW5lbC4zZGJhcnMsCiAgICAgICAgICB4YmFzZT0wLjMsICAKICAgICAgICAgIHliYXNlPTAuMywgCiAgICAgICAgICB6bGFiID0gTlVMTCwgCiAgICAgICAgICBjb2wuZmFjZXQ9YygiYmx1ZSIsICJ5ZWxsb3ciLCAicHVycGxlIiwgIm9yYW5nZSIsICJncmVlbiIpLAogICAgICAgICAgZ3JvdXAgPSBUeXBlXzEsIAogICAgICAgICAgc2NhbGVzPWxpc3QoYXJyb3dzPUZBTFNFLCBjb2w9MSksIHhsYWIgPSBOVUxMLCB5bGFiID0gTlVMTCwgbWFpbiA9IE5VTEwsCiAgICAgICAgICBwYXIuYm94ID0gbGlzdChjb2wgPSBOQSksIGxjb2w9TlVMTAogICAgICAgICAgKQpgYGAKXHBhZ2VicmVhawpcbGluZWJyZWFrClNvIGxldHMgdGFrZSBhIHF1aWNrIGxvb2sgYXQgdGhlIGRhdGEuIEluaXRpYWxseSwgd2Ugd2lsbCBleHBsb3JlIGZha2UgZGVuc2VseSBnZW5lcmF0ZWQgZGF0YSBhbmQgdGhlbiB3ZSB3aWxsIGV4cGxvcmUgYSByZWFsIGRhdGFzZXQuIFRoZSBmYWtlIGRhdGEgd2FzIGdlbmVyYXRlZCBiYXNlZCBvbiByZWFsIGRhdGEgZXhwbG9yaW5nIG51bWJlciBvZiBvYnNlcnZhdGlvbnMgYmFzZWQgb24gKipudW1iZXIgb2YgZ2VuZXMqKiBhbmQgKipudW1iZXIgb2YgY2VsbCB0eXBlcy4qKgpcbGluZWJyZWFrCgpgYGB7ciBlY2hvID0gRkFMU0V9CnJvdy5uYW1lcyhEYXRhc2V0KSA8LSBOVUxMCkRhdGFzZXQKYGBgCgpccGFnZWJyZWFrCgojIyNTbyB3aGF0IGFyZSB0aGUgZGlmZmVyZW50IGFsdGVybmF0aXZlcyB0byBhIDNEIGNvbHVtbiBjaGFydD8gCgoqKjEuIERvZGdlIEJhciBDaGFydCoqIAoKYGBge3J9CmdncGxvdChEYXRhc2V0LCBhZXMoeCA9IFR5cGVfMSwgeSA9IE9ic2VydmF0aW9uLCBmaWxsID0gVHlwZV8yKSkgKyBnZW9tX2Jhcihwb3NpdGlvbiA9ICJkb2RnZSIsIHN0YXQgPSAiaWRlbnRpdHkiICkgKyBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlNldDMiKQoKYGBgClxwYWdlYnJlYWsKCioqMi4gRmFjZXRlZCBiYXIgY2hhcnRzKiogCgpgYGB7cn0KZ2dwbG90KERhdGFzZXQsIGFlcyh4ID0gVHlwZV8xLCB5ID0gT2JzZXJ2YXRpb24pKSArIGdlb21fYmFyKHBvc2l0aW9uID0gImRvZGdlIiwgc3RhdCA9ICJpZGVudGl0eSIsIGZpbGw9IiNGRjk5OTkiLCBjb2xvdXI9ImJsYWNrIiApICArIGZhY2V0X2dyaWQocm93cyA9IHZhcnMoVHlwZV8yKSkgCmBgYApccGFnZWJyZWFrCgoqKjMuIExpbmUgQ2hhcnQqKiAKCmBgYHtyfQpnZ3Bsb3QoRGF0YXNldCwgYWVzKHggPSBUeXBlXzEsIHkgPSBPYnNlcnZhdGlvbiwgY29sID0gVHlwZV8yLCBncm91cD0gVHlwZV8yICkpICsgIGdlb21fbGluZSgpICsgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJTZXQzIikKYGBgCgoqKjQuIFNjYXR0ZXJwbG90cyAqKiAKYGBge3J9CmdncGxvdChEYXRhc2V0LCBhZXMoeCA9IFR5cGVfMSwgeSA9T2JzZXJ2YXRpb24gLCBjb2wgPSBUeXBlXzIgKSkgKyAgZ2VvbV9wb2ludCgpICsgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJTZXQzIikKYGBg